home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Fatted Calf
/
The Fatted Calf.iso
/
Applications
/
Conversion
/
Convert_PICT
/
Source
/
UncommentedPSCode
/
Rectangles
< prev
next >
Wrap
Text File
|
1994-05-24
|
2KB
|
94 lines
%BEGIN Rectangles
/rectpath
{
/lastright exch def
/lastbottom exch def
/lastleft exch def
/lasttop exch def
newpath
lastleft lasttop moveto
lastright lasttop lineto
lastright lastbottom lineto
lastleft lastbottom lineto
closepath
}
def
/frameRect
{
/lastright exch def
/lastbottom exch def
/lastleft exch def
/lasttop exch def
penWidth 0 gt
penHeight 0 gt
and
{
gsave
penPattern usePattern
newpath
lastleft lasttop moveto
lastright lasttop lineto
lastright lastbottom lineto
lastleft lastbottom lineto
closepath
lastleft penWidth add lasttop penHeight add moveto
lastleft penWidth add lastbottom penHeight sub lineto
lastright penWidth sub lastbottom penHeight sub lineto
lastright penWidth sub lasttop penHeight add lineto
closepath
fill
grestore
}
if
}
def
/paintRect
{
gsave
penPattern usePattern
rectpath
fill
grestore
} def
/eraseRect
{
gsave
backPattern usePattern
rectpath
fill
grestore
}
def
/invertRect
{
gsave
rectpath
grestore
}
def
/fillRect
{
gsave
fillPattern usePattern
rectpath
fill
grestore
}
def
/frameSameRect
{ lasttop lastleft lastbottom lastright frameRect }
def
/paintSameRect
{ lasttop lastleft lastbottom lastright paintRect }
def
/eraseSameRect
{ lasttop lastleft lastbottom lastright eraseRect }
def
/invertSameRect
{ lasttop lastleft lastbottom lastright invertRect }
def
/fillSameRect
{ lasttop lastleft lastbottom lastright fillRect }
def
%END Rectangles